home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / write3_512.lha / Config / VIEW.config < prev    next >
Encoding:
Text File  |  1994-08-16  |  5.0 KB  |  414 lines
  1. /* $VER: VIEW.CONFIG 3.848 */
  2. VERSIONCHECK 3848 "VIEW.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN 
  7.  
  8.   ;
  9.  
  10. CLOSE 
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0 
  18.   OPEN _PATH 
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   QUITED
  23.   ;
  24.  
  25.  
  26. /* Variablen */
  27.  
  28. SETVAR "_ScrRelWidth" 698
  29. SETVAR "_ScrRelHeight" 528
  30. SETVAR "_EditMode" FALSE
  31. SETVAR "_Optimize" TRUE
  32. SETVAR "_FRPattern" "~(#?.info)"
  33.  
  34.  
  35. /* Tastaturbelegung */
  36.  
  37. KEY "numpad shift 1"
  38.   GOTO _XPOS _LENGTH 
  39.   ;
  40.  
  41. KEY "numpad shift 2"
  42.   CURSORDOWN 0
  43.   ;
  44.  
  45. KEY "numpad shift 3"
  46.   PAGEDOWN 90
  47.   ;
  48.  
  49. KEY "numpad shift 4"
  50.   CURSORLEFT 0
  51.   ;
  52.  
  53. KEY "numpad shift 5"
  54.   SETTITLE "Set Mark." 0
  55.   SETMARK
  56.   ;
  57.  
  58. KEY "numpad shift 6"
  59.   CURSORRIGHT 0
  60.   ;
  61.  
  62. KEY "numpad shift 7"
  63.   GOTO _XPOS 1 
  64.   ;
  65.  
  66. KEY "numpad shift 8"
  67.   CURSORUP 0
  68.   ;
  69.  
  70. KEY "numpad shift 9"
  71.   PAGEUP 90
  72.   ;
  73.  
  74. KEY "numpad enter"
  75.   RETURN
  76.   ;
  77.  
  78. KEY "escape"
  79.   ICONIFY
  80.   ;
  81.  
  82. KEY "up"
  83.   CURSORUP 0
  84.   ;
  85.  
  86. KEY "shift up"
  87.   PAGEUP 90
  88.   ;
  89.  
  90. KEY "alt up"
  91.   GOTO _XPOS 1 
  92.   ;
  93.  
  94. KEY "down"
  95.   CURSORDOWN 0
  96.   ;
  97.  
  98. KEY "shift down"
  99.   PAGEDOWN 90
  100.   ;
  101.  
  102. KEY "alt down"
  103.   GOTO _XPOS _LENGTH 
  104.   ;
  105.  
  106. KEY "right"
  107.   CURSORRIGHT 0
  108.   ;
  109.  
  110. KEY "shift right"
  111.   GOTO @EOL @EOL 
  112.   ;
  113.  
  114. KEY "alt right"
  115.   NEXTWORD
  116.   ;
  117.  
  118. KEY "left"
  119.   CURSORLEFT 0
  120.   ;
  121.  
  122. KEY "shift left"
  123.   GOTO @SOL @SOL 
  124.   ;
  125.  
  126. KEY "alt left"
  127.   LASTWORD
  128.   ;
  129.  
  130. KEY "f1"
  131.   GOTEXTMARK 0
  132.   ;
  133.  
  134. KEY "shift f1"
  135.   SETTEXTMARK 0
  136.   ;
  137.  
  138. KEY "f2"
  139.   GOTEXTMARK 1
  140.   ;
  141.  
  142. KEY "shift f2"
  143.   SETTEXTMARK 1
  144.   ;
  145.  
  146. KEY "f3"
  147.   GOTEXTMARK HIGHER
  148.   ;
  149.  
  150. KEY "shift f3"
  151.   SETTEXTMARK HIGHER
  152.   ;
  153.  
  154. KEY "f4"
  155.   GOTEXTMARK 3
  156.   ;
  157.  
  158. KEY "shift f4"
  159.   SETTEXTMARK 3
  160.   ;
  161.  
  162. KEY "f5"
  163.   GOTEXTMARK 4
  164.   ;
  165.  
  166. KEY "shift f5"
  167.   SETTEXTMARK 4
  168.   ;
  169.  
  170. KEY "shift help"
  171.   HELP 
  172.   ;
  173.  
  174. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  175.   IF {@CLEARRN}
  176.     GOTOMOUSE {@SAMEPOS};
  177.     SETMARK;
  178.     GOTOMOUSE ;
  179.   ;
  180.  
  181. KEY "rawmouse lbutton mouse_leftpress"
  182.   GOTOMOUSE 
  183.   ;
  184.  
  185. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  186.   MACROPANNEL 
  187.   ;
  188.  
  189. KEY "rawmouse rbutton lbutton mouse_rightpress"
  190.   UNMARK
  191.   ;
  192.  
  193.  
  194. /* Menues */
  195.  
  196. MENU "PROJEKT"
  197.  
  198. ITEM "Öffne..." "O"
  199.   GETFILE "" "" 
  200.   OPEN _PATH 
  201.   ;
  202.  
  203. ITEMBAR
  204.  
  205. ITEM "Speichern" "S"
  206.   SAVE _FILENAME 
  207.   ;
  208.  
  209. ITEM "Speichern als..." "A"
  210.   GETFILE "" "" {@SAVE}
  211.   SETVAR "_FileName" _PATH
  212.   SAVE _FILENAME 
  213.   ;
  214.  
  215. ITEM "Speicher als RAW..." ""
  216.   GETFILE "" "" {@SAVE}
  217.   SAVE _PATH {@RAW}
  218.   ;
  219.  
  220. ITEM "Speichern & neu öffnen..." ""
  221.   SAVE _FILENAME 
  222.   GETFILE "" "" 
  223.   OPEN _PATH 
  224.   ;
  225.  
  226. ITEM "Text ausdrucken" "*"
  227.   SAVE "PRT:" 
  228.   ;
  229.  
  230. ITEMBAR
  231.  
  232. ITEM "Neues Fenster »" ""
  233.   NOP
  234.   ;
  235.  
  236. SUB "GROßES FENSTER" "B"
  237.   NEWED "VIEW.config"
  238.   WINDOW 0 0 0 0 
  239.   ;
  240.  
  241. SUB "kleines Fenster" "W"
  242.   NEWED "VIEW.config"
  243.   WINDOW 100 50 100 50 
  244.   ;
  245.  
  246. ITEM "Iconify" "I"
  247.   ICONIFY
  248.   ;
  249.  
  250. ITEM "Hide" ""
  251.   HIDE
  252.   ;
  253.  
  254. ITEM "WinArranger" "§"
  255.   WINARRANGER 1 
  256.   ;
  257.  
  258. ITEM "WinManager" "$"
  259.   WINMANAGER 
  260.   ;
  261.  
  262. ITEMBAR
  263.  
  264. ITEM "Über WRITE" "!"
  265.   ABOUT
  266.   ;
  267.  
  268. ITEMBAR
  269.  
  270. ITEM "Ende" "Q"
  271.   QUITED
  272.   ;
  273.  
  274. MENU "EDIT"
  275.  
  276. ITEM "Setze Marke" "M"
  277.   SETTITLE "Marke gesetzt." 0
  278.   SETMARK
  279.   ;
  280.  
  281. ITEM "Lösche Marke" "U"
  282.   UNMARK
  283.   ;
  284.  
  285. ITEMBAR
  286.  
  287. ITEM "Kopieren" "C"
  288.   COPYBLOCK 0 
  289.   SETTITLE "Block kopiert." 0
  290.   ;
  291.  
  292. ITEM "Nach Clip kopieren" ""
  293.   COPYBLOCK 0 
  294.   BUFFERTOCLIP 0 0 
  295.   SETTITLE "Block kopiert." 0
  296.   ;
  297.  
  298. ITEM "Speicher Block als..." ""
  299.   COPYBLOCK 0 
  300.   GETFILE "" "" {@SAVE}
  301.   SAVEBUFFER _PATH 0 
  302.   ;
  303.  
  304. ITEM "Drucke Block" ""
  305.   COPYBLOCK 0 
  306.   SAVEBUFFER "PRT:" 0 
  307.   ;
  308.  
  309. MENU "UTLITIES"
  310.  
  311. ITEM "Zeige Zeit & Datum" "T"
  312.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$" 
  313.   ;
  314.  
  315. ITEMBAR
  316.  
  317. ITEM "Match Bracket" "("
  318.   MATCHBRACKET
  319.   ;
  320.  
  321. MENU "SEARCH"
  322.  
  323. ITEM "Zähle..." ""
  324.   GETFINDREPLACE _FINDSTRING "" 
  325.   IF 
  326.     COMPARE _MARKED HIGHER;
  327.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  328.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  329.   MESSAGEOK "\"$_FindWord$\"\nwurde $_RN$ mal gefunden !" 
  330.   ;
  331.  
  332. ITEMBAR
  333.  
  334. ITEM "Finde..." "F"
  335.   GETFINDREPLACE _FINDSTRING "" 
  336.   IF 
  337.     COMPARE _MARKED HIGHER;
  338.     FIND @MARKA @MARKA @MARKB @MARKB ;
  339.     FIND @CURSOR @CURSOR @EOT @EOT ;
  340.   ;
  341.  
  342. ITEM "Finde noch einmal" "N"
  343.   IF 
  344.     COMPARE _MARKED HIGHER;
  345.     FIND @MARKA @MARKA @MARKB @MARKB ;
  346.     FIND @CURSOR @CURSOR @EOT @EOT ;
  347.   ;
  348.  
  349. ITEMBAR
  350.  
  351. ITEM "Suche nach Muster..." ""
  352.   GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE 
  353.   SETVAR "_PatCase" _RS
  354.   FINDPATTERN @CURSOR @EOT {@CASE}
  355.   ;
  356.  
  357. ITEM "Suche noch einmal" ""
  358.   FINDPATTERN @CURSOR @EOT {@CASE}
  359.   ;
  360.  
  361. ITEM "Suche nach Muster (no Case)..." "Ö"
  362.   GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE 
  363.   SETVAR "_PatNoCase" _RS
  364.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  365.   ;
  366.  
  367. ITEM "Suche noch einmal" "Ä"
  368.   FINDPATTERN @CURSOR @EOT {@NOCASE}
  369.   ;
  370.  
  371. ITEMBAR
  372.  
  373. ITEM "Springe zu Zeile..." "G"
  374.   GETNUMBER "Springe zu Zeile :" _YPOS 
  375.   GOTO _XPOS _RN 
  376.   ;
  377.  
  378. ITEMBAR
  379.  
  380. ITEM "Zeige Index..." "J"
  381.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?" 
  382.   SHOWINDEX _RS {@CASE}
  383.   ;
  384.  
  385. MENU "PREFS"
  386.  
  387. ITEM "Globale Prefs" ""
  388.   GPREFS 
  389.   ;
  390.  
  391. ITEM "Prefs" "+"
  392.   PREFS 
  393.   ;
  394.  
  395. MENU "HELP"
  396.  
  397. ITEM "Zeige Variablen" ""
  398.   SHOWVARS 
  399.   ;
  400.  
  401. ITEM "Zeige Funktionen" ""
  402.   SHOWFUNCTIONS 
  403.   ;
  404.  
  405. ITEM "Zeige ASCII-Codes" ""
  406.   SHOWASCII 
  407.   ;
  408.  
  409. ITEM "Hilfe zu Stichwort..." "?"
  410.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" "" 
  411.   GUIDEHELP _RS
  412.   ;
  413.  
  414.